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FIG. 4a 
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R5 = Current Instruction Offset within application buffer 

R6 = Current Instruction Address within application buffer 

R7 = Work Register - used for calculating offsets, etc 

R1 2 = Base register of code generator and template code 

SLR R5, R5 clear offset 

L R6, $BCB_BC0DE_@ get address of user buffer 

* if linkage required call standard linkage builder 
IF (TM, $BCB_PFLAG1 , $BCB_LINKAGE, 0) 

SETF LINKAGE 

IF (CLI, $BCB_LINKAGE, TYPE, EQ, C'N') 

RESETF LINKAGE 
COND ELSE 

* call standard linkage builder 

#BAS 14, =A (BURST_ENTRY_LINKAGE) 
ENDIF 
ELSE 

RESETF LINKAGE 
ENDIF 

* * * * 

STD RETURN - RETURN TO APPLICATION 

* $BCB_BC0DE_@ WILL POINT TO BUILT CODE 

*• * * * 

* Routine to build standard entry linkage 

BURST_ENTRY_LINKAGE CSMSUBI BASE=R10, W0RKREG = R3 

* Move Template code into user buffer 

MVC 0 (STD_ENTL_010_L, R6), STD_ENTL_010 

* Modify " LA R1 4,0(0)" instruction 

* Get Offset to Savearea using equate STD_ENTL_010_SA_A 

* Set base register for instruction to R1 2 

* Set D (X,B) of instruction (R7 contains constructed D (X,B) ) 

LA R7, STD_ENTL_010_SA_A (,R5) 

O R7, =X'0000C000' 

STH R7, STD_ENTL_010_SA_T (,R6) 



FIG. 5a 
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Modify "B 0 (R12 )" instruction 

Get offset of branch target using equate STD_ENTL_01 0_B_A_T 
Set D (X,B) of instruction (R7 contains constructed D (X,B) ) 
** Note X ( index register ) has been set by assembler as R1 2 
STH does not change the instruction's index register 

LA R7, STD_ENTL_01 0_B_A_T (,R5) CALC OFFSET FOR BRANCH TARGET 
STH R7, STD_ENTL_01 0_B_A_ (,R6) SET BRANCH D ( X,B ) 



Increment Next Instruction Offset (in R5) by length of code 
Increment Next Instruction Address (in R6) by length of code 

LA R5, STD_ENTL_01 0_L (,R5) 

LA R6, STD_ENTL_010_L (,R6) 

Return to caller 

Code has been built and the Instruction Offset and Address registers 
have been updated for next instruction construction 

CSMSUBO 

STANDARD ENTRY LINKAGE 



STD_ENTL_010 DS OS 

STM R14, R12, 12 (R13) 
STD_ENTL_01 0 _SA_T EQU *-STD_ENTL_01 0+2 
LA R14, 0(0) 
ST R13, 4(, R14) 
ST R14, 8(, R13) 
LR R13, R14 
LR R12, R15 

EQU *-STD_ENTL_010+2 
0 (R12) 

STD_ENTL_01 0 _SA_A EQU *-STD_ENTL_010 

DC 18P0' 
STD_ENTL_010_B_A_T EQU *-STD_ENTL_010 
STD ENTL 010 L EQU *-STD ENTL 010 



STD_ENTL_01 0 _B_A 
B 



BURSTED SAVEAREA+0 



R13 - BURSTED SAVEAREA 
SET BURSTED BASE REG 



WS BRANCH 



FIG. 5b 
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* Call made by API passing API $BURSTCB control block 

* Control block contains field attributes and conversion 

* options 

* Reset processing flags 

* N0_BUILD -> doing conversion routine storage calculation 

* CALLED_ROUTINE -> creating a called routine 

* Check for API block -> if not there abend with dump 

* Copy passed API block to working storage (IN_BCB) 

MAIN_0000 DS OS 

RESETF N0_BUILD 
RESETF CALLED_ROUTINE 

LTR R1 , R1 
BNZ MAIN_0005 

ABEND 001, DUMP 

MAIN 0005 DS OS 

MVC IN_BCB ($BCB_LENGTH), 0 (R1) 

LA R9, IN_BCB R9 = ADDRESS OF $BURSTCB 

USING $BURSTCB, R9 

* If calculate storage requested SET NO_BUILD 

IF (CLC, $BCB_FUNC, EQ, =Y ($BCB_CALC_STORAGE) ) 

SETF NO_BUILD 
ENDIF 

* INITIALIZE WORKING STORAGE 

* If actually BUILDING code (not N0_BUILD) 

* 1 . Obtain offset from beginning of BASE REGISTER 

* for code. If callable routine this has been set to 0. 

otherwise this we are building inline code within the application's 
user managed buffer and the offset will set to current instruction offset 
within the buffer. 

2. Obtain address of passed code buffer 

3. Calculate current instruction address based on offset into buffer 

FIG. 6a 
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MAIN_STRT DS OS 

IF (-N0_BUILD) 
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FIG. 6b 
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R5, $BCB_BC0DE_0FFSET 
R6, $BCB_BC0DE_@ 
R6, 0 (R5, R6) 

R5, R5 
R6, R6 



CLEAR FOR ACCUM 
CLEAR FOR ACCUM 



INITIALIZE WORK FIELDS FOR ANY COLUMN CONVERSION 

1 . Obtain input field's addressing register 

2. Build RX type assembler instruction D (X,B) with offset 0 

3. Obtain output field's addressing register 

4. Build RX type assembler instruction D (X,B) with offset 0 
set template for output D (X,B) 

5. Obtain input and output lengths 

6. Set Current working D (X,B) templates 



SLR 


R7, R7 




ICM 


R7, B'OOOT, SBCBJREG 
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R7, 4 


SHIFT NIBBLE 


STC 


R7, WB_INIT_SOURCE_DB 




ICM 
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SLL 
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SHIFT NIBBLE 


STC 


R7, WB_INIT_TARGET_DB 
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MVC 


WB_SOURCE_DB, WB_INIT_SOURCE_DB 


RESET DB 


MVC 
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RESET DB 



CHECK FOR LINKAGE REQUIREMENTS 

IF LINKAGE = E (BASIC ENTRY - SAVE/ RESTORE R14) THEN 
BURST_WORK_BRANCH WILL SAVE R14 AND SET REST0RE_R14 
BURST_EXIT_LINKAGE RESTORES R14 AND BASR R14 

ENDIF 

RESETF RESTORE_R1 4 
IF (TM, $BCB_PFLAG1, $BCB_LINKAGE, 0) 
SETF LINKAGE 

IF (CLI, $BCB_LINKAGE_TYPE, EQ, C'N') 

RESETF LINKAGE 

COND ELSE 

#BAS 14,= A (BURST_ENTRY_LINKAGE) 
ENDIF 

ELSE 

RESETF LINKAGE 
ENDIF 
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* CALL INPUT TYPE PROCESSING ROUTINE 

* 1 . Get address of input field type table FIG. 6c 

This table contains an index of supported input types 
with their associated code generation routines 

* 2. Call code generation routine for Input field type 

In this case INPUT FIELD TYPE IS CHARACTER 
INPUT FIELD TYPE CHARACTER calls routine named CHARACTER 
**** Further down subroutine CHARACTER is shown 



L 


R14,=A (TYPE TABLE) 


LH 


R15,$BCB I TYPE 


LA 


R15, 0 (R14, R15) 


L 


R15, 0 (,R15) 


BASR 


R14, R15 



* Subroutine has built conversion code for INPUT TYPE CHARACTER and OUTPUT TYPE CHARACTER 

* Check for other process options such as: accumulate a source addressing register, 

* accumulate a target addressing register, or accumulate alternate register. 

* alternate register usually is a total output length accumulator used by the calling 

* application to keep track of an aggregate of all output field lengths 

* 1 . IF source addressing register accumulate requested build code to accumulate 

* 2. IF target addressing register accumulate requested build code to accumulate 

* 3. IF length register accumulate requested build code to accumulate 

* 4. IF exit linkage requested build exit linkage 

* 5. RETURN TO API CALLER with generated conversion routine 
MAIN_0200 DS OS 

IF (TM, $BCB_PFLAG1, $BCB__SRC_ACUM, 0) 

LH RO, WB_SOURCE_ACCUM_INDEX 

IC R1 , $BCB_SRC_ACUM_REG 

LH R7, WB_T0T_INPUT_LEN 

#BAS 1 4, = A (FIXED_ACCUM) 
ENDIF 

IF (TM, $BCB_PFLAG1, $BCB_TRG_ACUM, 0) 

LH RO, WB_TARGET_ACCUM_INDEX 

IC R1, $BCB_TRG_ACUM_REG 

LH R7, WB_TOT_OUTPUT_LEN 

#B AS 14, —A (FIXED_ACCUM) 
ENDIF 

IF (TM, $BCB_PFLAG1 , $BCB_TRG_L_ACUM, 0) 

LH RO, WB_TARGET_ACCUM_INDEX 

IC R1, $BCB_TLN_ACUM_REG 

LH R7, WB_TOT_OUTPUTJ_EN 

#BAS 14, =A(FIXED_ACCUM) 
ENDIF 

* BURST EXIT LINKAGE 

IF (LINKAGE) 

SETF CLEAR_R1 5 

#BAS 14, =A (BURST_EXIT_LINKAGE) 
ENDIF 

RETURN to CALLER 
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FIG. 



Character Input Field Type Conversion Routine 
Abstract: 

This routine is called to either build Character Input 
Fields to all supported Output Field Types, or to calculate 
storage requirements for generated conversion routines for 
Input field type Character 

CHARACTER field type constraints 

These field types will be of fixed length 

Maximum length is 254 8bit bytes 

They may be proceeded with a null field indicator of length 
1 byte that will contain values of x'00' for non-null fields 
and x'ff for nulled fields. Nulled fields will not be 
converted accept to indicate on output that field was null 

There values are of EBCDIC CCSID (character code set) unless 

a CCSID is specified through the API. 



CHARACTER CSMSUBI BASE-R10, W0RKREG = R3 

Use branch table generated by API to branch on output type (BTYPE=0) 
Example is demonstrating character to character conversion 
Branch will be taken to CHAR CHAR 0000 



L R15, =A (RC 32) 




$BURST BTABLE 


X 


BREG = 1, 


X 


BTYPE=0, 


X 


UNSUPPORTED=0 (,R15), 


X 


CHAR=CHAR CHAR 0000, 


X 


LVARC = CHAR VARC 0000, 


X 


VARC=CHAR VARC 0000 





-@PSEUD0-C0DE@ 

CHARACTER TO CHARACTER CONVERSION 

- DETERMINE WORKING STORAGE 

Some conversions require the generation of local working storage 

Working storage is generated according to specific conversion options and 
specific input and output field attributes to avoid generating more storage 
than needed 

IF CONVERTING CCSID'S (Character code sets) THEN 
IF using a character translation table (uses TR instruction) 
Build BRANCH overworking storage 
Build FULL WORD to hold Address character translation table 
UPDATE Previously built Branch instruction to branch to current offset 
(offset is next halfword aligned byte where next instruction is to be built) 
ENDIF 



ENDIF 
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FIG. 



* IF INPUT LENGTH is GREATER than OUTPUT LENGTH 

current implementation allows for truncation of trailing spaces 
If input field being converted by generated code contains non-spaces 
that won't fit into output field of lesser length then conversion 
error 4 routine will be called to return a value of 4 in R15 

1 . Build BRANCH over working storage 

2. Build a buffer full of spaces to be used in INPUT field compare 

* 3. Build Conversion error routine to return error #4 

4. UPDATE Previously built Branch instruction to branch to current offset 
(offset is next halfword aligned byte where next instruction is to be built) 

* ENDIF 

* - DETERMINE WORKING STORAGE 

*-@PSEUD0-C0DE@ CHAR_CHAR_0000 DS OS 

* BURST WORKAREA IF CONVERSION ERROR OR CONVERT CCSID 

TM $BCB_PFLAG2, $BCB_CCSID_CNV 

BNZ CHAR_CHAR_0020 

CLC $BCB_ILEN, $BCB_0LEN 

BNH CHAR_CHAR_0040 

CHAR_CHAR_0020 DS OS 

#BAS 14, =A (BURST_WORK_BRANCH) 

IF (TM, $BCB_PFLAG2, $BCB_CCSID_CNV, NZ) 
IF (TM, $BCB_PFLAG2, $BCB_CCSID_CNV_ATOE, 0) 
# BAS 14, =A(BURST_BWK_TO_E_XLATE_@) 
ELSE 

#BAS 14, =A(BURST_BWK_TO_0_XLATE_@) 
ENDIF 

#BAS 14, =A(BURST_BWK_FULL) 
STH R7, WB_SAVE_R2_0FFSET 
ENDIF 

* IF ILEN > OLEN THEN NEED FOLLOWING WORK FIELDS 

* BURST BUFFER255 - SPACES 

* BURST #@ERR0R4 CALL 

* ENDIF 

IF (CLC, $BCB_ILEN, GT, $BCB_0LEN) 

#BAS 14, =A(BURST_BWK_BUFFER255) 

•k 

LA R1,4 #@ERR0R4 
#BAS 14, =A (BUILD_CNVERR) 

ENDIF 



#BAS 14, =A (UPDATE_W0RK_BRANCH) 
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* IF OUTPUT NULLABLE THEN 12/14 FIG 6f 

BURST MOVEMENT OF NUL INDICATOR " J 

R1 = X'00' FOR MVI Instruction Builder 

* WB_TARGET_DB (current target D(B) ) USED FOR INDICATOR LOCATION 

* Build MVI OF NULL INDICATOR (MVI_0000) 

UPDATE Current TARGET D (B) TO ALLOW DATA TO SKIP NULL INDICATOR 

ADD 1 TO TOT OUTPUT LENGTH (FOR NULL INDC) (this allows for accumulation requests) 

* ENDIF 

CHAR CHAR 0040 DS OS 

IF (TM, $BCB_OFLAG1, $BCB_0NULL, 0) 

SLR R1 , R1 CLEAR SOURCE BYTE 

#BAS 14, =A (MVI_0000) BURST MVI NULL INDC 

LH R1 , WB_TARGET_DB UPDATE TARGET DB 

LA R1,1(,R1) 

STH R1 , WB_TARGET_DB 

LH R1 , WB_TOT_OUTPUT_LEN UPDATE OUTPUT LEN 

LA R1,1(, R1) 

STH R1 , WB_TOT_OUTPUT_LEN 
ENDIF 

* IF input length < then output length 

call routine to build code to pad output field with spaces 

* ELSE 

IF input length = Output length 
Call routine to build an MVC instruction 

This routine uses current source and target D (B) 's 
and the output length to construct the instruction 

* ELSE 

input length > output length 

Call routine to build an MVC instruction 

This routine call will use the input length (since it shorter) 

(source and target D (B)'s will be used 
Build Code to check for truncation of only spaces 

* ENDIF 

* ENDIF 

LH R1 , $BCB_ILEN GET INPUT LEN 

LH R2, $BCB_0LEN GET OUTPUT LEN 

CR R1.R2 CHECK LENGTHS 

BE CHAR_CHAR_0050 EQUAL 

BH CHAR_CHAR_0100 I > 0 -> 

* INPUT LENGTH LESS THAN OUTPUT -> NEED TO PAD 

* Build Character padding code 

#BAS 14, =A(SSP_0000) 

* Build code TO MOVE CHARACTER FIELD TO CHARACTER FIELD 
CHAR_CHAR_0050 DS OS 

#BAS 14, -A (MVC_0000) BURST MVC INSTRUCTION 

B CHAR CHAR 0200 
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* INPUT field is too large to fit 

* Build code TO MOVE CHARACTER FIELD TO CHARACTER FIELD using input field's length 
CHARCHARJD100 DS OS 

LR R1 , R2 

#BAS 14,=A(MVC_00000) BURST MVC INSTRUCTION 

* MOVE CHECK FOR SPACES 

* IF TRUNCATED DATA NOT SPACES THEN #@ERROR4 

IF (-N0_BUILD) 

MVC 0(CHAR_CHAR_01 0_L, R6), CHAR_CHAR_01 0 

* SET LENGTH OF COMPARE 

LH R7, $BCB_ILEN 

SR R7, R1 

BCTR R7, 0 

STC R7, CHAR_CHAR_01 0_OLEN_A (,R6) 

* SET SOURCE DB TO SOURCE + OLEN-1 

LH R7, WB_SOURCE_DB 

LA R7, 0 (R1 , R7) 

BCTR R7, 0 

STH R7, CHAR_CHAR_01 0_SDBN_A (,R6) 

* UPDATE BUFFER OFFSET 

LH R7, WB_BUFFER255_OFFSET 

0 R7, =X ' 0000C000 ' 

STH R7, CHAR_CHAR_01 0_B255_A (,R6) 

* UPDATE #@ERROR4 BRANCH 

LH R7, WB_CNVERR4_0FFSET 

STH R7, CHAR CHAR 010 BERR A (,R6) 

ENDIF (NO_BUILD) 

LA R5, CHAR_CHAR_01 0_L (,R5) 

LA R6, CHAR_CHAR_01 0_L (,R6) 



FIG. 6g 
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* CHECK FOR TRANSLATION of CCSID's 

* If translation requested call translation routine generator 

* *** note translation routine will perform accumulation 

* operation if API requested it. If accumulation is performed 

by the routine the IN_BCB (copy of API block used by generator) 

* will be updated to turn off accumulation by the main process 
done upon CHARACTER subroutine (see above) 

CHAR_CHAR_0200 DS OS 

IF (TM, $BCB_PFLAG2, $BCB_CCSID_CNV, NZ) 

IF IREG =2 AND SRC_ACCUM TR INST WILL BUMP REG 
SETF SAVE_R2 

IF (CLC, $BCB_IREG, EQ, =H ' 2 ' ) , AND, 

(TM, $BCB_PFLAG1 , $BCB_TRG_ACUM+$BCB_TRG_L_ACUM, NZ) 
RESETF SAVE_R2 

Nl $BCB_PFLAG1 , X ' FF ' -$BCB_SRC_ACUM 
ENDIF 

RESETF XLATE_T0_E 

IF (TM, $BCB_PFLAG2, $BCB_CCSID_CNV_ATOE, 0) 

SETF XLATE_T0_E 
ENDIF 

#BAS 14, =A (D0_XTAB_SH0RT) 
ENDIF 



X 



CHAR_9999 DS 
B 



OS 

CHARACTER END 



BURST CHARACTER TO CHARACTER ILEN > OLEN 
TEMPLATE CODE USED FOR NON-SPACE TRUNCATION 



CHAR_CHAR 
CHAR_CHAR 
CHAR_CHAR 
CHAR_CHAR 

CHAR CHAR 



010 DS OS 
010_OLEN_AEQU 
010_SDBN_AEQU 
01 0_B255_A EQU 

" CLC 0 (0, 0) , 
01 0_BERR_A EQU 

" BNE 0 (R12) 



'-CHAR_CHAR_010 + 1 
*-CHAR_CHAR_010+2 
*-CHAR_CHAR_010+4 
0(0) 

r -CHAR CHAR 010 + 2 



LEN OF CLC 

L0C OF SOURCE TO COMP 

LOC OF 255 SPACES 

SDB+ (OLEN-1), BWK BUFF255 

NOT SPACES? -> #@ERR0R4 



CHAR CHAR 010 L EQU *-CHAR CHAR 010 



FIG. 6h 



